Top 10k strings from Bulls & Bears (1986)(The Stock Exchange).z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [Z80] /
Back to the directory listing
5 ;"BULLS & BEARS" 4 E N D O F G A M E 3 z$="sells" 3 endofperiod=(50 3 ;" Press 3 to continue "; 2 t())+period: 2 pence=k(p): 2 gaflag=100 2 endofgame=(50 2 ;"Press ENTER to continue."; 2 ;"MINS : " 2 ;"HOURS : " 2 ;" Please select (1-4) ?_ 2 ));","'" You have reached one million pounds in total." 2 ));" is the winner!!!" 2 ";p$(p);" " 1 z$="buys": 1 which player 1 v(p)=v(p)-pence: 1 v(p)=v(p)+pence: 1 v$=" "+v$: 1 update=4100 1 u(p)=u(p)-cd: 1 u(p)=u(p)+cd 1 u()=(65536 1 tt>endofperiod 1 tt>endofgame 1 trends=1000 1 trans=2000 1 timecheck=8000 1 time=time-mins*60 1 time=time-hours*3600 1 t(p)=t(p)-n*10 1 t(p)=t(p)+n*10 1 t())+period 1 t$="LEVEL" 1 t$="DOWN " 1 t$=" UP " 1 status=8500 1 starttime=secs: 1 setclock=5800 1 set=(u$="Y") 1 secs=secs-l: 1 secs=(sh*3600 1 s(s,p)=s(s,p)-n*10 1 s(s,p)=s(s,p)+n*10 1 real time clock 1 px-xx,py-yy 1 px-cx,py-cy: 1 pounds=8200 1 port (PORTFOLIO) 1 pence>k(p) 1 pence=z(p): 1 pence=v(p): 1 pence=v(p)+k(p): 1 pence=n*10 1 p=(d(s)*100 1 p(s)=p(s)-( 1 p(s)=p(s)+5 1 p(p)=p(p)-c: 1 p(p)=p(p)+c: 1 n$=n$+" ": 1 market=2500 1 main part starts here 1 lzero=7400 1 l(p));" ";z$;" ";s$(s) 1 k(p)=k(p)-pence: 1 k(p)=k(p)+pence: 1 input2=7000 1 index=index+p(t) 1 hours=hours-12 1 graph=3500 1 gaflag=gaflag-15 1 freeze=1200 1 d$="0"+d$: 1 d$=" "+d$: 1 confirm=7200 1 clock=6500 1 bulletin=6800 1 broker=6000 1 b(s,p)=p(s): 1 autoscale=5600 1 accperiod=accperiod+1 1 accperiod=0 1 accperiod/6 1 TIME = ";: 1 ALLIED-LYONS BARRATT.DEVL BEECHAMS.GROUP BLUE.CIRCLE 1 ;u$;" PLAYER";: 1 ;px-cx,py-cy 1 ;p(q);" ";: 1 ;d$;" "; 1 ;"periods." 1 ;"company" 1 ;"STATUS SCREEN" 1 ;"SEARCHING"; 1 ;"SEARCHING" 1 ;"Please select 1,2 or 3 ?"; 1 ;"PRICE = "; 1 ;"PLEASE WAIT!" 1 ;"PERSONAL PORTFOLIO" 1 ;"NOT ENOUGH SHARES.": 1 ;"NOT ENOUGH FUNDS.": 1 ;"MARKET TRENDS" 1 ;"Last four acc."; 1 ;"FREEZE GAME" 1 ;"FINISHED" 1 ;"Enter the price then press ENTER" 1 ;"CONFIRM Y/N ?"; 1 ;"BULLS & BEARS"'' 1 ;"BULLETIN" 1 ;" WELL DONE ";p$(2 1 ;" WELL DONE ";p$(1 1 ;" PLEASE WAIT! UPDATING PRICES! " 1 ;" No.=Number of shares x 10 1 ;" MAXIMUM value of shares = 800p"''" MINIMUM value of shares = 10p" 1 ;" ENTER YOUR NAME PLAYER 2 1 ;" ENTER YOUR NAME PLAYER 1 1 ;" 1=";p$(1 1 ;" ";s;" ";: 1 ;" ";j;" ";: 1 ;" Please wait while I check the 1 ;" Please use different names!!": 1 ;" PRICE : "; 1 ;" NEWS "; 1 ;" Dividends "; 1 ;" DIVIDEND : "; 1 ;" Your portfolio is empty." 1 ;" Press ENTER to continue "; 1 ;" ENTER TIME (12 HOUR CLOCK) " 1 ;" CONFIRM ";10 1 ;" Value "; 1 ;" TOTAL "; 1 ;" Shares "; 1 ;" ONE UNIT = 10 SHARES"''" Enter number of units ? "; 1 ;" Bank 1 3 Please indicate the item of 1 ,q;" Shares " 1 *n;" shares. (Y/N)"; 1 );" 3=Cancel"'" "; 1 );" 2=";p$(2 1 )+"."+t$(l-1 1 (time/3600 1 (mins)+":": 1 (hours)+":": 1 (accperiod/6 1 ''''" Clock stopped at 1 ''''" This is a real time game. 1 '''" We recommend at least 30 mins." 1 '''" USE SET PRICES (Y or N) ?"' 1 ''" N.B. 3 minutes is recommended."'' 1 '"How long is this game to last ?" 1 '" Do you want to enter todays 1 "Information on ";s$(s) 1 "ENTER = Select SPACE = Broker" 1 ";s(j,p)/10 1 "...THERE ARE NO ","ANNOUNCEMENTS AT THE MOMENT..." 1 "...SUPPLY OF MATERIAL FOR SUBSIDIARY OF "," DRIES UP..." 1 "...GOOD PRICE ON ","'S SHARES..." 1 "...CITY RESPONDS TO "," 'S GOOD PERFORMANCE..." 1 "...CHAIRMAN OF "," RESIGNS..." 1 "...ADVERSE PRESS AFFECTS ","'S SHARE PRICES..." 1 "...","TREASURY FORECAST GOOD..." 1 "...","STERLING DROPS AGAINST DOLLAR..." 1 "...","OPEC MEETING - OIL SHORTAGE EXPECTED..." 1 "...","GOOD TRADE FIGURES ANNOUNCED..." 1 "...","FT/SE100 INDEX WELL UP!..." 1 "...","FT/SE100 INDEX DOWN..." 1 "..."," MAKES STAFF REDUNDANT..." 1 "..."," LOSES MAJOR ORDER..." 1 "..."," ANNOUNCES NEW PROJECT CREATING MORE JOBS..." 1 ".."," OPENS NEW PREMISES..." 1 " Use the arrows (6 & 7) to 1 " Try to make some profit next time!!" 1 " If you select to enter todays prices, it requires 48 prices to be entered."''' 1 " Enter how long each ACCOUNTING PERIOD will last for, 1 " End of accounting period ";accperiod: 1 " 3. INFORMATION 4. BROKER 1 " 2 .. MARKET 1 " 1. BUY SHARES 2. SELL SHARES 1 " 1 .. PORTFOLIO 3 .. MAIN MENU 1 " We offer the facilities 1 " Do you want to play again ? 1 " Do you want to carry on ? 1 " Cost of equities =";: 1 " Please wait one moment." 1 your choice by pressing the 1 stocks and shares." 1 stock prices, or use those 1 listed below. 1 correct number."''''" 1 browse through the list of 1 already set ?"'' 1 You lost some of your money!!!" 1 WELL PLAYED !"''" This game was a draw!!" 1 WELL DONE !"''" You have made a profit!!" 1 WELL DONE !"''" ";p$(2 1 WELL DONE !"''" ";p$(1 1 The time needs to be entered. " 1 TRUSTHOUSE.FORTE 1 TRANSACTIONS" 1 THORN-EMI 1 THANK YOU." 1 SELECT OPTION 1-6" 1 SAINSBURY.J. SCOT.&.NEW.BREWSSTC 1 ROWNTREE.MAC. RTZ 1 RMC.GROUP 1 RECK.&.COL. 1 RANK.ORG. 1 Please select 1 or 2 ?_" 1 No. CP BP " 1 MARKET PLACE" 1 MAGNET.&.SOUTH MARKS.&.SPENCER MFI.FURNITURE NAT.WEST.BANK PILKINGTON.BROS PRUDENTIAL 1 M A R K E T"'' 1 JOHNSON.MATTHEY LAND.SECURITIES LLOYDS.BANK 1 HOW MANY PLAYERS ?" 1 HAWKER.SIDDELEY HOUSE.OF.FRASER I.C.I. 1 HARD LUCK 1 GRAND.MET. 1 ENTER LENGTH (2-5):" 1 ENG.CHINA.CLAY FISONS 1 CP =current price 1 CABLE.&.WIRELESSCADBURY.SCHW. CONS.GOLDFIELDS COURTAULDS 1 BR.PETROLEUM BRIT.AEROSPACE BTR 1 BP =price bought at." 1 BOC.GROUP 1 : P : C : D 1 6 ... END GAME" 1 5 ... FREEZE GAME" 1 4 ... NEWS" 1 4 .. NEWS 1 3 ... STATUS" 1 2 = 2 Players." 1 2 ... BROKER" 1 1 = 1 Player, or,"''" 1 1 ... TRENDS" 1 (2 to 5 minutes.)..." 1 "+a$+t$+b$+" 1 HOLDINGS " 1 DIVIDEND 1 TREND 1 Player ";p;" 1 PRICE 1 YIELD